home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 March / macformat-022.iso / Shareware City / Developers / NeoIntroTCL3.0 folder / TCL / NeoBench / Source / CNeoWindow.cp < prev    next >
Encoding:
Text File  |  1994-02-23  |  1.0 KB  |  32 lines  |  [TEXT/KAHL]
  1. /**********************************************************************
  2.   CNeoWindow.c
  3.  
  4.   This window behaves differently than CWindow when it is Zoomed.
  5.   It is supposed to move to the center of the screen when the Zoom
  6.   button is pressed.   So no matter where it is,  it will always
  7.   center when Zoom is pressed.
  8.  
  9.   The "Direction" argument to Zoom is meaningless and is ignored.
  10. **********************************************************************/
  11.  
  12. #include "NeoTypes.h"
  13. #include "CNeoWindow.h"
  14. #include "CDecorator.h"
  15.  
  16. extern    CDecorator    *gDecorator;    /* Window dressing object    */
  17.  
  18. /**********************************************************************
  19.  
  20. **********************************************************************/
  21. CNeoWindow::CNeoWindow(short WINDid, Boolean aFloating, CDesktop *anEnclosure, CDirector *aSupervisor)
  22. {
  23.     IWindow(WINDid, aFloating, anEnclosure, aSupervisor);
  24. }
  25.  
  26. void    CNeoWindow::Zoom(short aDirection)                /* Zoom can be in or out */
  27. {
  28.     if (gDecorator)
  29.         gDecorator->CenterWindow(this);
  30. }
  31.  
  32.